inherited fmEditElementP: TfmEditElementP
  Left = 410
  Top = 225
  Width = 699
  Height = 414
  Caption = 'fmEditElementP'
  Constraints.MinHeight = 414
  Constraints.MinWidth = 699
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 360
    Width = 691
  end
  inherited Panel1: TPanel
    Width = 691
    inherited BitBtn1: TBitBtn
      Left = 521
    end
    inherited BitBtn2: TBitBtn
      Left = 601
    end
  end
  object Panel2: TPanel [2]
    Left = 0
    Top = 45
    Width = 691
    Height = 315
    Align = alClient
    TabOrder = 2
    DesignSize = (
      691
      315)
    object Label3: TLabel
      Left = 12
      Top = 65
      Width = 52
      Height = 13
      Caption = #1048#1089#1090#1086#1095#1085#1080#1082':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 12
      Top = 17
      Width = 112
      Height = 13
      Caption = #1069#1083#1077#1084#1077#1085#1090' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 12
      Top = 41
      Width = 143
      Height = 13
      Caption = #1069#1083#1077#1084#1077#1085#1090' '#1089#1086#1076#1077#1088#1078#1072#1085#1080#1103' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 12
      Top = 89
      Width = 118
      Height = 13
      Caption = #1057#1090#1088#1072#1085#1080#1094#1072' '#1074' '#1080#1089#1090#1086#1095#1085#1080#1082#1077':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 326
      Top = 89
      Width = 104
      Height = 13
      Anchors = [akTop, akRight]
      Caption = #1059#1088#1086#1074#1077#1085#1100' '#1089#1083#1086#1078#1085#1086#1089#1090#1080':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 10
      Top = 115
      Width = 71
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081':'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 322
      Top = 115
      Width = 102
      Height = 13
      Caption = #1050#1086#1084#1084#1077#1085#1090#1072#1088#1080#1081' (ENG):'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGray
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
    end
    object cxDBTextEdit1: TcxDBTextEdit
      Left = 160
      Top = 13
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'ELEMENTP'
      DataBinding.DataSource = dsElementp
      TabOrder = 0
      Width = 513
    end
    object cxDBTextEdit2: TcxDBTextEdit
      Left = 160
      Top = 36
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'ELEMENTP_ENG'
      DataBinding.DataSource = dsElementp
      TabOrder = 1
      Width = 513
    end
    object cxDBTextEdit3: TcxDBTextEdit
      Left = 160
      Top = 85
      Anchors = [akLeft, akTop, akRight]
      DataBinding.DataField = 'PAGEIN'
      DataBinding.DataSource = dsElementp
      TabOrder = 2
      Width = 156
    end
    object cxDBCheckBox1: TcxDBCheckBox
      Left = 571
      Top = 85
      Anchors = [akTop, akRight]
      Caption = #1050#1086#1085#1090#1088#1086#1083#1100
      DataBinding.DataField = 'ECONTROL'
      DataBinding.DataSource = dsElementp
      Properties.NullStyle = nssUnchecked
      Properties.ValueChecked = 1
      Properties.ValueUnchecked = 0
      TabOrder = 3
      Width = 104
    end
    object cxDBCheckComboBox2: TcxDBCheckComboBox
      Left = 435
      Top = 85
      Anchors = [akTop, akRight]
      DataBinding.DataField = 'ECOMPL'
      DataBinding.DataSource = dsElementp
      Properties.EditValueFormat = cvfStatesString
      Properties.Items = <
        item
          Description = '1'
        end
        item
          Description = '2'
        end>
      Properties.OnClickCheck = cxDBCheckComboBox2PropertiesClickCheck
      Style.TextColor = clBlack
      TabOrder = 4
      Text = 'None selected'
      Width = 129
    end
    object cxDBMemo1: TcxDBMemo
      Left = 10
      Top = 130
      Anchors = [akLeft, akTop, akBottom]
      DataBinding.DataField = 'ECOMMENT'
      DataBinding.DataSource = dsElementp
      TabOrder = 5
      Height = 165
      Width = 309
    end
    object cxDBMemo2: TcxDBMemo
      Left = 322
      Top = 130
      Anchors = [akLeft, akTop, akRight, akBottom]
      DataBinding.DataField = 'ECOMMENT_ENG'
      DataBinding.DataSource = dsElementp
      TabOrder = 6
      Height = 165
      Width = 351
    end
    object eFormLess: TcxButtonEdit
      Tag = 10
      Left = 160
      Top = 59
      Anchors = [akLeft, akTop, akRight]
      ParentFont = False
      Properties.Buttons = <
        item
          Glyph.Data = {
            F6000000424DF600000000000000760000002800000010000000100000000100
            0400000000008000000000000000000000001000000000000000000000000000
            8000008000000080800080000000800080008080000080808000C0C0C0000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFF0FFFFFFFFFFFFFF000FFFFFFFFFFFF00000FFFFFFFFFF0000000F
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
            FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
        end>
      Properties.MaxLength = 0
      Properties.ReadOnly = True
      Properties.OnButtonClick = eFormLessPropertiesButtonClick
      Style.Font.Charset = DEFAULT_CHARSET
      Style.Font.Color = clWindowText
      Style.Font.Height = -13
      Style.Font.Name = 'Tahoma'
      Style.Font.Style = [fsBold]
      Style.LookAndFeel.SkinName = ''
      Style.Shadow = False
      Style.IsFontAssigned = True
      StyleDisabled.LookAndFeel.SkinName = ''
      StyleFocused.LookAndFeel.SkinName = ''
      StyleHot.LookAndFeel.SkinName = ''
      TabOrder = 7
      Width = 513
    end
  end
  inherited dlgDS: TDataSource
    Top = 8
  end
  object dsElementp: TDataSource
    DataSet = qElementp
    Left = 360
    Top = 24
  end
  object qElementp: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    CachedUpdates = True
    SQL.Strings = (
      'select e.*, i.istochnik'
      'from elementp e'
      '    left join istochnik i on i.idistochnik = e.idistochnik'
      'where e.eisdelete is null and e.idelementp = :idelementp')
    UpdateObject = quElementp
    GeneratorField.Field = 'SDID'
    Left = 392
    Top = 24
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'idelementp'
        ParamType = ptUnknown
      end>
    object qElementpIDELEMENTP: TIntegerField
      FieldName = 'IDELEMENTP'
      Origin = '"ELEMENTP"."IDELEMENTP"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qElementpIDPODTEMAUK: TIntegerField
      FieldName = 'IDPODTEMAUK'
      Origin = '"ELEMENTP"."IDPODTEMAUK"'
    end
    object qElementpELEMENTP: TIBStringField
      FieldName = 'ELEMENTP'
      Origin = '"ELEMENTP"."ELEMENTP"'
      Size = 255
    end
    object qElementpECOMPL: TIBStringField
      FieldName = 'ECOMPL'
      Origin = '"ELEMENTP"."ECOMPL"'
      Size = 5
    end
    object qElementpIDISTOCHNIK: TIntegerField
      FieldName = 'IDISTOCHNIK'
      Origin = '"ELEMENTP"."IDISTOCHNIK"'
    end
    object qElementpPAGEIN: TIBStringField
      FieldName = 'PAGEIN'
      Origin = '"ELEMENTP"."PAGEIN"'
      Size = 80
    end
    object qElementpECONTROL: TIntegerField
      FieldName = 'ECONTROL'
      Origin = '"ELEMENTP"."ECONTROL"'
    end
    object qElementpECOMMENT: TIBStringField
      FieldName = 'ECOMMENT'
      Origin = '"ELEMENTP"."ECOMMENT"'
      Size = 255
    end
    object qElementpETIMEENTER: TDateTimeField
      FieldName = 'ETIMEENTER'
      Origin = '"ELEMENTP"."ETIMEENTER"'
    end
    object qElementpETIMEEDIT: TDateTimeField
      FieldName = 'ETIMEEDIT'
      Origin = '"ELEMENTP"."ETIMEEDIT"'
    end
    object qElementpEUSERENTER: TIBStringField
      FieldName = 'EUSERENTER'
      Origin = '"ELEMENTP"."EUSERENTER"'
      Size = 80
    end
    object qElementpEUSEREDIT: TIBStringField
      FieldName = 'EUSEREDIT'
      Origin = '"ELEMENTP"."EUSEREDIT"'
      Size = 80
    end
    object qElementpEISDELETE: TIntegerField
      FieldName = 'EISDELETE'
      Origin = '"ELEMENTP"."EISDELETE"'
    end
    object qElementpELEMENTP_ENG: TIBStringField
      FieldName = 'ELEMENTP_ENG'
      Origin = '"ELEMENTP"."ELEMENTP_ENG"'
      Size = 255
    end
    object qElementpECOMMENT_ENG: TIBStringField
      FieldName = 'ECOMMENT_ENG'
      Origin = '"ELEMENTP"."ECOMMENT_ENG"'
      Size = 255
    end
    object qElementpISTOCHNIK: TIBStringField
      FieldName = 'ISTOCHNIK'
      Origin = '"ISTOCHNIK"."ISTOCHNIK"'
      Size = 255
    end
  end
  object quElementp: TIBUpdateSQL
    RefreshSQL.Strings = (
      'Select '
      '  IDELEMENTP,'
      '  IDPODTEMAUK,'
      '  ELEMENTP,'
      '  ECOMPL,'
      '  IDISTOCHNIK,'
      '  PAGEIN,'
      '  ECONTROL,'
      '  ECOMMENT,'
      '  ETIMEENTER,'
      '  ETIMEEDIT,'
      '  EUSERENTER,'
      '  EUSEREDIT,'
      '  EISDELETE,'
      '  ELEMENTP_ENG,'
      '  ECOMMENT_ENG,'
      '  ISTOCHNIK'
      'from elementp '
      'where'
      '  IDELEMENTP = :IDELEMENTP')
    ModifySQL.Strings = (
      'update elementp'
      'set'
      '  ECOMMENT = :ECOMMENT,'
      '  ECOMMENT_ENG = :ECOMMENT_ENG,'
      '  ECOMPL = :ECOMPL,'
      '  ECONTROL = :ECONTROL,'
      '  ELEMENTP = :ELEMENTP,'
      '  ELEMENTP_ENG = :ELEMENTP_ENG,'
      '  IDELEMENTP = :IDELEMENTP,'
      '  IDISTOCHNIK = :IDISTOCHNIK,'
      '  IDPODTEMAUK = :IDPODTEMAUK,'
      '  PAGEIN = :PAGEIN'
      'where'
      '  IDELEMENTP = :OLD_IDELEMENTP')
    InsertSQL.Strings = (
      'insert into elementp'
      
        '  (ECOMMENT, ECOMMENT_ENG, ECOMPL, ECONTROL, ELEMENTP, ELEMENTP_' +
        'ENG, IDELEMENTP, '
      '   IDISTOCHNIK, IDPODTEMAUK, PAGEIN)'
      'values'
      
        '  (:ECOMMENT, :ECOMMENT_ENG, :ECOMPL, :ECONTROL, :ELEMENTP, :ELE' +
        'MENTP_ENG, '
      '   :IDELEMENTP, :IDISTOCHNIK, :IDPODTEMAUK, :PAGEIN)')
    DeleteSQL.Strings = (
      'delete from elementp'
      'where'
      '  IDELEMENTP = :OLD_IDELEMENTP')
    Left = 424
    Top = 24
  end
end
